home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
faq
/
tg15demo.lha
/
Trx
/
MV.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1995-09-25
|
2KB
|
67 lines
/* MARK, UNMARK, VIEW & WIPE SCRIPT FOR TREK-THE GUIDE v1.5
** Still needs lots of work though!! */
if ~show('L','rexxarplib.library') then
call addlib('rexxarplib.library',0,-30)
arg title func .
if func = "MARK" then do
open(tag, 'env:trekguide/'title, 'w')
close(tag)
result = PostMsg(180, 200,title'\IS NOW MARKED', TREKGUIDE)
call delay(30)
result = PostMsg() /* this closes the message requester */
end
if title = "VIEW" then do
eplist = FileList('ENV:TREKGUIDE/*', files, , N)
if eplist = 0 then do
envfiles = Request(180, 250, 'There are no marked files to view.\Try marking a file first.', , OKAY, ,TREKGUIDE)
exit
end
pick = requestlist(1, files.0, files, 225, 250, 250, 100, TREKGUIDE, sort)
address amigaguide.1 link pick
/* address showguide.1 LINK 'TG-ORIG/THE_NAKED_TIME */
end
if title = "CLEAR" then do /* THIS IS THE WIPE COMMAND */
eplist = FileList('ENV:TREKGUIDE/*', files, , N)
if eplist ~= 0 then do
envfiles = Request(180, 250, 'Do you really want to\DELETE your marked files?', , YES,NO,TREKGUIDE)
end
if envfiles = '' then do
exit
end
if eplist = 0 then do
envfiles = Request(180, 250, 'You have no marked files to delete.', , OKAY,,TREKGUIDE)
exit
end
address command 'c:delete env:TrekGuide all'
address command 'c:delete envarc:TrekGuide all'
call delay(30)
address command 'c:makedir env:TrekGuide'
exit
end
if func = "UNMARK" then do
eplist = FileList('ENV:TREKGUIDE/'title, files, , N)
if eplist = 0 then do
envfiles = Request(180, 250, 'THIS EPISODE IS NOT MARKED.', , OKAY,,TREKGUIDE)
exit
end
address command 'c:delete env:trekguide/'title
result = PostMsg(180, 200,title'\IS NOW UN-MARKED', TREKGUIDE)
call delay(40)
result = PostMsg() /* this closes the message requester */
exit
end